www.gusucode.com > 云枫工作室企业网站源码 1 > 云枫工作室企业网站源码 1.0/云枫工作室企业网站源码(asp无限制版)1.0/web/page.asp

    <%if pagecount > 0 then                                           
    response.write("<table width=100% align=center><tr><td align=center style='font-size:12px'>")
    response.write("共有" & recordcount & "条信息;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;  每页" & pagesize & "条信息;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 当前第" & page & "页/共" & pagecount & "页;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;   ")
    Spage = page mod PARTSIZE
    if page > PARTSIZE then
        if Spage = 0 then Spage = PARTSIZE
        Spage = page - Spage + 1
    else
        Spage = 1
    end if
    Epage = Spage + PARTSIZE - 1
    if Epage > pagecount then Epage = pagecount
	
	
    if page <> 1 then
		 response.write("[<a  class='lj' href=""?page=1&"&url&""">首页</a> ")
	else
		 response.write("[<a >首页</a> ")	
	end if
    if page <> pagecount then
		 response.write(" <a  class='lj' href=""?page=" & pagecount & "&"&url&""">尾页</a>] ")
	else
		 response.write(" <a >尾页</a>] ")	
	end if
	
	
    if page > 1 then
        response.write(" [<a  class='lj' href=""?page=" & page - 1 & "&"&url&""">上页</a> ")
	else
        response.write(" [<a >上页</a> ")	
    end if
    for i = Spage to Epage
       
    next
    if page < pagecount then
        response.write(" <a class='lj' href=""?page=" & page + 1 & "&"&url&""">下页</a>]")
		else
		
        response.write(" <a>下页</a>]")
    end if
    response.write("</td></tr></table>")    
end if
rs.close
set rs=nothing
%>